(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    108572,       2551]
NotebookOptionsPosition[    106723,       2483]
NotebookOutlinePosition[    107084,       2499]
CellTagsIndexPosition[    107041,       2496]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["ESERCITAZIONE_ 03", "Title",
 CellChangeTimes->{{3.5312243508562503`*^9, 3.5312243600187745`*^9}}],

Cell[CellGroupData[{

Cell["DATI DEL PROBLEMA", "Section",
 CellChangeTimes->{{3.531224382250046*^9, 3.5312243873843393`*^9}}],

Cell[CellGroupData[{

Cell["CARATTERISTICHE DEL TERRAPIENO ", "Subsection",
 CellChangeTimes->{{3.531224410417657*^9, 3.5312244141608715`*^9}, {
  3.531289578554598*^9, 3.5312895893654165`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Gamma]", "t"], "=", "13"}], ";"}], "\[IndentingNewLine]",
    
   RowBox[{
    RowBox[{
     SubscriptBox["\[Epsilon]", "t"], "=", 
     RowBox[{"0", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[CurlyPhi]", "t"], "=", 
     RowBox[{"37", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Rho]", "p"], "=", 
     RowBox[{"2", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "p"], "=", 
     RowBox[{
      SubscriptBox["\[CurlyPhi]", "t"], "*", 
      SubscriptBox["\[Rho]", "p"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Beta]", "p"], "=", 
     RowBox[{"90", "Degree"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{3.5312895922982216`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["CARATTERISTICHE DEL TERRENO DI FONDAZIONE ", "Subsection",
 CellChangeTimes->{{3.531224410417657*^9, 3.5312244141608715`*^9}, 
   3.531289578554598*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Gamma]", "f"], "=", "13"}], ";"}], "\[IndentingNewLine]",
    
   RowBox[{
    RowBox[{
     SubscriptBox["\[CurlyPhi]", "f"], "=", 
     RowBox[{"35", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["c", "f"], "=", "15"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Rho]", "f"], "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "f"], "=", 
     RowBox[{
      SubscriptBox["\[CurlyPhi]", "f"], "*", 
      SubscriptBox["\[Rho]", "f"]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{3.5312895941858253`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["DIMENSIONI DEL MURO ", "Subsection",
 CellChangeTimes->{{3.531224410417657*^9, 3.5312244141608715`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalDelta]", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Df", "=", 
   RowBox[{"0.2", "*", "\[CapitalDelta]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hm", "=", 
   RowBox[{"Df", "+", "\[CapitalDelta]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dynamic", "[", "B", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bpt", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pe", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bpb", "=", 
   RowBox[{"Bpt", "+", 
    RowBox[{"pe", "*", "\[CapitalDelta]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bi", "=", "0.15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Be", "=", 
   RowBox[{"B", "-", "Bi", "-", "Bpb"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "p"], "=", "24"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5312897821349554`*^9, 3.5312898523974786`*^9, {3.531289969428884*^9, 
   3.5312900071965504`*^9}, {3.531293620623498*^9, 3.53129362787751*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<\[CapitalDelta]\>\"", ",", "\"\<Df\>\"", ",", "\"\<Hm\>\"", ",", 
        "\"\<B\>\"", ",", "\"\<\!\(\*SubscriptBox[\(B\), \(pt\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(p\), \(e\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(B\), \(pb\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(B\), \(i\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(B\), \(e\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Gamma]\), \(p\)]\)\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\[CapitalDelta]", ",", "Df", ",", "Hm", ",", "B", ",", "Bpt", ",", 
        "pe", ",", "Bpb", ",", "Bi", ",", "Be", ",", 
        SubscriptBox["\[Gamma]", "p"]}], "}"}]}], "}"}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5312880320090804`*^9, 3.531288081523567*^9}, {
  3.5312881118656206`*^9, 3.531288146466481*^9}, {3.5312882446530538`*^9, 
  3.5312882478042593`*^9}, {3.531288284620324*^9, 3.5312883493136377`*^9}, {
  3.5312887854988046`*^9, 3.5312889153378325`*^9}, {3.5312889635887175`*^9, 
  3.5312889728551335`*^9}, {3.5312900196141725`*^9, 3.5312900428582134`*^9}}],\


Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\[CapitalDelta]\"\>", "3"},
    {"\<\"Df\"\>", "0.6000000000000001`"},
    {"\<\"Hm\"\>", "3.6`"},
    {"\<\"B\"\>", "B"},
    {"\<\"\\!\\(\\*SubscriptBox[\\(B\\), \\(pt\\)]\\)\"\>", "0.4`"},
    {"\<\"\\!\\(\\*SubscriptBox[\\(p\\), \\(e\\)]\\)\"\>", "0.3`"},
    {"\<\"\\!\\(\\*SubscriptBox[\\(B\\), \\(pb\\)]\\)\"\>", 
     "1.2999999999999998`"},
    {"\<\"\\!\\(\\*SubscriptBox[\\(B\\), \\(i\\)]\\)\"\>", "0.15`"},
    {"\<\"\\!\\(\\*SubscriptBox[\\(B\\), \\(e\\)]\\)\"\>", 
     RowBox[{
      RowBox[{"-", "1.4499999999999997`"}], "+", "B"}]},
    {"\<\"\\!\\(\\*SubscriptBox[\\(\[Gamma]\\), \\(p\\)]\\)\"\>", "24"}
   },
   ColumnsEqual->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Grid"]], "Output",
 CellChangeTimes->{{3.5312881201960354`*^9, 3.531288147948484*^9}, 
   3.531288250581064*^9, 3.531288294307941*^9, 3.5312883540404463`*^9, {
   3.531288683209425*^9, 3.5312887063754654`*^9}, {3.531288916757435*^9, 
   3.5312889261954517`*^9}, 3.531288973744335*^9, {3.5312890392956505`*^9, 
   3.531289047813265*^9}, 3.5312899040335693`*^9, 3.5312900462902193`*^9, 
   3.5312922659639187`*^9, 3.5312923037783847`*^9, 3.531292573206458*^9, 
   3.53129363316592*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["VERIFICHE ", "Subsection",
 CellChangeTimes->{{3.531224410417657*^9, 3.5312244141608715`*^9}, {
  3.5312911681349897`*^9, 3.5312911698821926`*^9}}],

Cell[CellGroupData[{

Cell["RIBALTAMENTO APP2 (EQU + M2)", "Subsubsection",
 CellChangeTimes->{{3.5312286792612476`*^9, 3.531228693441673*^9}}],

Cell[BoxData[{
 RowBox[{
  SubscriptBox["E", "d"], " ", "=", 
  RowBox[{
   SubscriptBox["M", "rd"], "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["M", "Sad"], " ", "<", 
     SubscriptBox["R", "d"]}], "=", 
    RowBox[{
     SubscriptBox["M", "sd"], "=", 
     SubscriptBox["M", "wd"]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["E", "d"], " ", "Momento", " ", 
  "ribaltante"}], "\[IndentingNewLine]", 
 RowBox[{"Rd", " ", "Momento", " ", "stabilizzante"}]}], "Text",
 CellChangeTimes->{{3.5312291283392363`*^9, 3.5312291695233088`*^9}, 
   3.531229273715892*^9, {3.5312293080515523`*^9, 3.531229467686632*^9}}],

Cell["COEFFICIENTI PARZIALI DI SICUREZZA", "Text",
 CellChangeTimes->{{3.5312287483537693`*^9, 3.531228757978986*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Fr"], "=", "0.9"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Sr"], "=", "1.1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "\[CurlyPhi]r"], "=", "1.25"}], ";"}]}], "Input",
 CellChangeTimes->{{3.531229067187129*^9, 3.5312291056411963`*^9}, {
  3.5312292409870343`*^9, 3.5312292435298386`*^9}, {3.531232586787199*^9, 
  3.531232590827606*^9}, {3.5312410909193916`*^9, 3.531241096863002*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["SCORRIMENTO  APP2  (A1, M1, R3)", "Subsubsection",
 CellChangeTimes->{{3.5312286792612476`*^9, 3.531228693441673*^9}, {
  3.5312323395735655`*^9, 3.5312323670608134`*^9}}],

Cell[BoxData[{
 RowBox[{
  SubscriptBox["E", "d"], "=", 
  RowBox[{
   SubscriptBox["T", "d"], " ", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["S", "ahd"], " ", "<", 
     SubscriptBox["R", "d"]}], "=", 
    RowBox[{
     SubscriptBox["T", "LDd"], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["W", "d"], "+", 
         SubscriptBox["S", "avd"]}], ")"}], "*", 
       SubscriptBox["\[Tau]", "an"]}], 
      SubscriptBox["\[Gamma]", "Rd"]]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["E", "d"], " ", "Momento", " ", 
  "ribaltante"}], "\[IndentingNewLine]", 
 RowBox[{"Rd", " ", "Momento", " ", "stabilizzante"}]}], "Text",
 CellChangeTimes->{{3.5312291283392363`*^9, 3.5312291695233088`*^9}, 
   3.531229273715892*^9, {3.5312293080515523`*^9, 3.531229467686632*^9}, {
   3.531233734996016*^9, 3.5312337502216425`*^9}, {3.531233783948902*^9, 
   3.531233940557577*^9}, {3.5312415143821354`*^9, 3.5312415181417418`*^9}}],

Cell["COEFFICIENTI PARZIALI DI SICUREZZA", "Text",
 CellChangeTimes->{{3.5312287483537693`*^9, 3.531228757978986*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Fs"], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Ss"], "=", "1.3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "\[CurlyPhi]s"], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "cs"], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "Rs"], "=", "1.1"}], ";"}]}], "Input",
 CellChangeTimes->{{3.531291286398797*^9, 3.531291286773198*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Fr"], "=", "0.9"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Sr"], "=", "1.1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "\[CurlyPhi]r"], "=", "1.25"}], ";"}]}], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["CARICO LIMITE  APP2  (A1, M1, R3)", "Subsubsection",
 CellChangeTimes->{{3.5312286792612476`*^9, 3.531228693441673*^9}, {
  3.5312323395735655`*^9, 3.5312323670608134`*^9}, {3.531242089835946*^9, 
  3.5312420941103535`*^9}}],

Cell[BoxData[{
 RowBox[{
  SubscriptBox["E", "d"], "=", 
  RowBox[{
   SubscriptBox["Q", "Vd"], " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["W", "d"], "+", 
       SubscriptBox["S", "avd"]}], ")"}], "<", 
     SubscriptBox["R", "d"]}], "=", 
    RowBox[{
     SubscriptBox["Q", "VLDd"], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"B", "-", 
         RowBox[{"2", 
          SubscriptBox["e", "d"]}]}], ")"}], "*", 
       SubscriptBox["q", "VL"]}], 
      SubscriptBox["\[Gamma]", "Rd"]]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["E", "d"], " ", "Momento", " ", 
  "ribaltante"}], "\[IndentingNewLine]", 
 RowBox[{"Rd", " ", "Momento", " ", "stabilizzante"}]}], "Text",
 CellChangeTimes->{{3.5312291283392363`*^9, 3.5312291695233088`*^9}, 
   3.531229273715892*^9, {3.5312293080515523`*^9, 3.531229467686632*^9}, {
   3.531233734996016*^9, 3.5312337502216425`*^9}, {3.531233783948902*^9, 
   3.531233940557577*^9}, {3.5312415143821354`*^9, 3.5312415181417418`*^9}, {
   3.5312421037043705`*^9, 3.531242192296926*^9}, 3.53124230288552*^9}],

Cell["COEFFICIENTI PARZIALI DI SICUREZZA", "Text",
 CellChangeTimes->{{3.5312287483537693`*^9, 3.531228757978986*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Fq"], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "G1Sq"], "=", "1.3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "\[CurlyPhi]q"], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "cq"], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Gamma]", "Rq"], "=", "1.4"}], ";"}]}], "Input",
 CellChangeTimes->{{3.531229067187129*^9, 3.5312291056411963`*^9}, {
  3.5312292409870343`*^9, 3.5312292435298386`*^9}, {3.5312324529077644`*^9, 
  3.531232519363881*^9}, {3.531233903195512*^9, 3.5312339051455145`*^9}, {
  3.531240218441059*^9, 3.5312402329802847`*^9}, {3.5312422344638*^9, 
  3.531242257661041*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["CALCOLO AUTOMATICO", "Section",
 CellChangeTimes->{{3.531224382250046*^9, 3.5312243873843393`*^9}, {
  3.531289817375417*^9, 3.5312898248478303`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"B", ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        SubscriptBox["A", "p1"], "=", 
        RowBox[{"Bpt", "*", "\[CapitalDelta]"}]}], ";", "\[IndentingNewLine]",
        
       RowBox[{
        SubscriptBox["x", "p1"], "=", 
        RowBox[{"B", "-", "Bi", "-", 
         FractionBox["Bpt", "2"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["y", "p1"], "=", 
        RowBox[{"Df", "+", 
         FractionBox["\[CapitalDelta]", "2"]}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{
        SubscriptBox["A", "p2"], "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Bpb", "-", "Bpt"}], ")"}], "*", 
         FractionBox["\[CapitalDelta]", "2"]}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{
        SubscriptBox["x", "p2"], "=", 
        RowBox[{"B", "-", "Bi", "-", "Bpt", "-", 
         RowBox[{
          FractionBox["1", "3"], 
          RowBox[{"(", 
           RowBox[{"Bpb", "-", "Bpt"}], ")"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["y", "p2"], "=", 
        RowBox[{"Df", "+", 
         FractionBox["\[CapitalDelta]", "3"]}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{
        SubscriptBox["A", "p3"], "=", 
        RowBox[{"B", "*", "Df"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["x", "p3"], "=", 
        FractionBox["B", "2"]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["y", "p3"], "=", 
        FractionBox["Df", "2"]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", "\"\<CALCOLO DEL BARICENTRO DEL MURO\>\"", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["A", "w"], "=", 
        RowBox[{
         SubscriptBox["A", "p1"], "+", 
         SubscriptBox["A", "p2"], "+", 
         SubscriptBox["A", "p3"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["x", "w"], "=", 
        FractionBox[
         RowBox[{
          RowBox[{
           SubscriptBox["A", "p1"], "*", 
           SubscriptBox["x", "p1"]}], "+", 
          RowBox[{
           SubscriptBox["A", "p2"], "*", 
           SubscriptBox["x", "p2"]}], "+", 
          RowBox[{
           SubscriptBox["A", "p3"], "*", 
           SubscriptBox["x", "p3"]}]}], 
         SubscriptBox["A", "w"]]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["y", "w"], "=", 
        FractionBox[
         RowBox[{
          RowBox[{
           SubscriptBox["A", "p1"], "*", 
           SubscriptBox["y", "p1"]}], "+", 
          RowBox[{
           SubscriptBox["A", "p2"], "*", 
           SubscriptBox["y", "p2"]}], "+", 
          RowBox[{
           SubscriptBox["A", "p3"], "*", 
           SubscriptBox["y", "p3"]}]}], 
         SubscriptBox["A", "w"]]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"AZIONI", " ", "DI", " ", "PROGETTO"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["W", "w"], "=", 
        RowBox[{
         RowBox[{"(", 
          SubscriptBox["\[Gamma]", "G1F"], ")"}], "*", 
         SubscriptBox["\[Gamma]", "p"], "*", 
         SubscriptBox["A", "w"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "w"], "=", 
        RowBox[{
         RowBox[{"(", 
          SubscriptBox["\[Gamma]", "G1F"], ")"}], "*", 
         SubscriptBox["\[Gamma]", "p"], "*", 
         SubscriptBox["A", "w"], "*", 
         SubscriptBox["x", "w"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["k", "a"], "=", 
        RowBox[{"N", "[", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            FractionBox[
             RowBox[{"Sin", "[", 
              RowBox[{"\[Beta]", "-", "\[CurlyPhi]"}], "]"}], 
             RowBox[{"Sin", "[", "\[Beta]", "]"}]], 
            RowBox[{
             SqrtBox[
              RowBox[{"Sin", "[", 
               RowBox[{"\[Beta]", "+", "\[Delta]"}], "]"}]], "+", 
             SqrtBox[
              FractionBox[
               RowBox[{
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Delta]", "+", "\[CurlyPhi]"}], "]"}], "*", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[CurlyPhi]", "-", "\[Epsilon]"}], "]"}]}], 
               RowBox[{"Sin", "[", 
                RowBox[{"\[Beta]", "-", "\[Epsilon]"}], "]"}]]]}]], ")"}], 
          "2"], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["S", "a"], "=", 
        RowBox[{
         RowBox[{"(", 
          SubscriptBox["\[Gamma]", "G1S"], ")"}], "*", 
         FractionBox["1", "2"], 
         SubscriptBox["\[Gamma]", "t"], "*", 
         SuperscriptBox["Hm", "2"], "*", 
         SubscriptBox["k", "a"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["S", "ah"], "=", 
        RowBox[{
         SubscriptBox["S", "a"], "*", 
         RowBox[{"Cos", "[", "\[Delta]", "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["S", "av"], "=", 
        RowBox[{
         SubscriptBox["S", "a"], "*", 
         RowBox[{"Sin", "[", "\[Delta]", "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "Sa"], "=", 
        RowBox[{
         RowBox[{
          FractionBox["1", "3"], "Hm", "*", 
          SubscriptBox["S", "ah"]}], "-", 
         RowBox[{"B", "*", 
          SubscriptBox["S", "av"]}]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"RIBALTAMENTO", " ", "APP2", " ", 
         RowBox[{"(", 
          RowBox[{"EQU", "+", "M2"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "rd"], "=", 
        RowBox[{
         SubscriptBox["M", "Sa"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Sr"]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]r"]}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]r"]}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "sd"], "=", 
        RowBox[{
         SubscriptBox["M", "w"], "/.", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", 
           SubscriptBox["\[Gamma]", "G1Fr"]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "r"], "=", 
        RowBox[{
         SubscriptBox["M", "Sa"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", "1"}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", "1"}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "s"], "=", 
        RowBox[{
         SubscriptBox["M", "w"], "/.", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", "1"}], "}"}]}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["F", "rd"], "=", " ", 
        RowBox[{
         SubscriptBox["M", "sd"], "/", 
         SubscriptBox["M", "rd"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["F", "r"], "=", " ", 
        RowBox[{
         SubscriptBox["M", "s"], "/", 
         SubscriptBox["M", "r"]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\n", 
       RowBox[{"(*", 
        RowBox[{"SCORRIMENTO", " ", "APP2", " ", 
         RowBox[{"(", 
          RowBox[{"A1", ",", "M1", ",", "R3"}], ")"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"VALORI", " ", "DI", " ", "PROGETTO"}], "*)"}], "\n", 
       RowBox[{
        SubscriptBox["T", "d"], "=", 
        RowBox[{
         SubscriptBox["S", "ah"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Ss"]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]s"]}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]s"]}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", "\n", "\n", 
       RowBox[{
        SubscriptBox["T", "LDd"], "=", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["W", "w"], "+", 
             SubscriptBox["S", "av"]}], ")"}], "*", 
           RowBox[{"Tan", "[", 
            SubscriptBox["\[Delta]", "fd"], "]"}]}], 
          SubscriptBox["\[Gamma]", "R"]], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Ss"]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Fs"]}], ",", 
           RowBox[{
            SubscriptBox["\[Delta]", "fd"], "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "f"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]s"]}]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]s"]}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]s"]}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "R"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "Rs"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"VALORI", " ", "CARATTERISTICI"}], "*)"}], "\n", 
       RowBox[{
        SubscriptBox["T", "k"], "=", 
        RowBox[{
         SubscriptBox["S", "ah"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", "1"}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", "1"}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", "\n", 
       RowBox[{
        SubscriptBox["T", "LDk"], "=", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["W", "w"], "+", 
             SubscriptBox["S", "av"]}], ")"}], "*", 
           RowBox[{"Tan", "[", 
            SubscriptBox["\[Delta]", "fd"], "]"}]}], 
          SubscriptBox["\[Gamma]", "R"]], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{
            SubscriptBox["\[Delta]", "fd"], "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "f"], "/", "1"}]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", "1"}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", "1"}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "R"], "\[Rule]", " ", "1"}]}], "}"}]}]}],
        ";", "\n", 
       RowBox[{"(*", 
        RowBox[{
        "CONFRONTO", " ", "TRA", " ", "FATTORI", " ", "DI", " ", 
         "SICUREZZA"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       
       RowBox[{
        SubscriptBox["F", "sd"], "=", " ", 
        RowBox[{
         SubscriptBox["T", "LDd"], "/", 
         SubscriptBox["T", "d"]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["F", "s"], "=", " ", 
        RowBox[{
         SubscriptBox["T", "LDk"], "/", 
         SubscriptBox["T", "k"]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"CARICO", " ", "LIMITE", " ", "APP2", " ", 
         RowBox[{"(", 
          RowBox[{"A1", ",", "M1", ",", "R3"}], ")"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"VALORI", " ", "DI", " ", "PROGETTO"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["Q", "Vd"], " ", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["W", "w"], "+", 
           SubscriptBox["S", "av"]}], ")"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Sq"]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Sq"]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["Q", "Vk"], " ", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["W", "w"], "+", 
           SubscriptBox["S", "av"]}], ")"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", "1"}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", "1"}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["Q", "Hd"], " ", "=", 
        RowBox[{
         SubscriptBox["S", "ah"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Sq"]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["Q", "Hk"], " ", "=", 
        RowBox[{
         SubscriptBox["S", "ah"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", "1"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", "1"}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", "1"}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Inclinazione", " ", "del", " ", "carico"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Alpha]", "d"], "=", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          SubscriptBox["Q", "Hd"], 
          RowBox[{
           SubscriptBox["Q", "Vd"], " "}]], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Alpha]", "d"], "/", "Degree"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Alpha]", "k"], "=", 
        RowBox[{"ArcTan", "[", 
         FractionBox[
          SubscriptBox["Q", "Hk"], 
          RowBox[{
           SubscriptBox["Q", "Vk"], " "}]], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Alpha]", "k"], "/", "Degree"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Calcoliamo", " ", "il", " ", "momento", " ", "applicato", " ", "nel",
          " ", "baricentro", " ", "della", " ", "sezione", " ", "per", " ", 
         "ottenere", " ", 
         RowBox[{"l", "'"}], " ", "eccentricit\[AGrave]"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "d"], "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "3"], "Hm", "*", 
            SubscriptBox["S", "ah"]}], "-", 
           RowBox[{
            FractionBox["B", "2"], 
            SubscriptBox["S", "av"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["x", "w"], "-", 
              FractionBox["B", "2"]}], ")"}], 
            SubscriptBox["W", "w"]}]}], ")"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Sq"]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "G1Sq"]}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["e", "d"], "=", 
        FractionBox[
         SubscriptBox["M", "d"], 
         SubscriptBox["Q", "Vd"]]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["M", "k"], "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "3"], "Hm", "*", 
            SubscriptBox["S", "ah"]}], "-", 
           RowBox[{
            FractionBox["B", "2"], 
            SubscriptBox["S", "av"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["x", "w"], "-", 
              FractionBox["B", "2"]}], ")"}], 
            SubscriptBox["W", "w"]}]}], ")"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "G1S"], "\[Rule]", " ", "1"}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "G1F"], "\[Rule]", "1"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", 
            RowBox[{
             SubscriptBox["\[Delta]", "p"], "/", "1"}]}], ",", 
           RowBox[{"\[Beta]", "\[Rule]", " ", 
            SubscriptBox["\[Beta]", "p"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[CurlyPhi]", "t"], "/", "1"}]}], " ", ",", 
           RowBox[{"\[Epsilon]", "\[Rule]", " ", 
            SubscriptBox["\[Epsilon]", "t"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["e", "k"], "=", 
        FractionBox[
         SubscriptBox["M", "k"], 
         SubscriptBox["Q", "Vk"]]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Il", " ", "carico", " ", "limite", " ", "verticale", " ", "da", " ", 
         "normativa", " ", "\[EGrave]", " ", "pari", " ", 
         RowBox[{"a", ":"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["Q", "VLDd"], "=", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"B", "-", 
            RowBox[{"2", 
             SubscriptBox["e", "d"]}]}], ")"}], "*", 
          SubscriptBox["q", "VL"]}], 
         SubscriptBox["\[Gamma]", "R"]]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Calcoliamo", " ", "prima", " ", "il", " ", "carico", " ", "limite", 
         " ", "unitario", " ", "con", " ", "la", " ", "formula", " ", 
         "trinomia", " ", "di", " ", 
         RowBox[{"TERZAGHI", "."}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         SubscriptBox["q", "VL"], "=", " ", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Xi]", "q"], "*", 
           SubscriptBox["N", "q"], "*", 
           SubscriptBox["\[Gamma]", "f"], "*", "D"}], "+", 
          RowBox[{
           SubscriptBox["\[Xi]", "c"], "*", 
           SubscriptBox["N", "c"], "*", "c"}], "+", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]"], "*", 
           SubscriptBox["N", "\[Gamma]"], "*", 
           RowBox[{"(", 
            RowBox[{
             FractionBox["B", "2"], "-", 
             SubscriptBox["e", "d"]}], ")"}]}]}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "q"], "=", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "+", 
           RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], 
          RowBox[{"1", "-", 
           RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]], "*", 
         RowBox[{"Exp", "[", 
          RowBox[{"\[Pi]", "*", 
           RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "c"], "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[CurlyPhi]", "f"], ">", "0"}], ",", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["N", "q"], "-", "1"}], ")"}], "*", 
            RowBox[{"Cot", "[", "\[CurlyPhi]", "]"}]}], ")"}], ",", 
          RowBox[{"(", 
           RowBox[{"2", "+", "\[Pi]"}], ")"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "\[Gamma]"], "=", 
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["N", "q"], "+", "1"}], ")"}], 
         RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "qd"], "=", 
        RowBox[{"N", "[", 
         RowBox[{
          SubscriptBox["N", "q"], "/.", " ", 
          RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
           SubscriptBox["\[CurlyPhi]", 
            RowBox[{"f", "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "cd"], "=", 
        RowBox[{"N", "[", 
         RowBox[{
          SubscriptBox["N", "c"], "/.", " ", 
          RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
           SubscriptBox["\[CurlyPhi]", 
            RowBox[{"f", "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "\[Gamma]d"], "=", 
        RowBox[{"N", "[", 
         RowBox[{
          SubscriptBox["N", "\[Gamma]"], "/.", " ", 
          RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
           SubscriptBox["\[CurlyPhi]", 
            RowBox[{"f", "/", 
             SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["N", "qk"], "=", 
        RowBox[{"N", "[", 
         RowBox[{
          SubscriptBox["N", "q"], "/.", " ", 
          RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
           SubscriptBox["\[CurlyPhi]", 
            RowBox[{"f", "/", "1"}]]}]}], "]"}]}], ";", "\[IndentingNewLine]",
        
       RowBox[{
        SubscriptBox["N", "ck"], "=", 
        RowBox[{"N", "[", 
         RowBox[{
          SubscriptBox["N", "c"], "/.", " ", 
          RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
           SubscriptBox["\[CurlyPhi]", 
            RowBox[{"f", "/", "1"}]]}]}], "]"}]}], ";", "\[IndentingNewLine]",
        
       RowBox[{
        SubscriptBox["N", "\[Gamma]k"], "=", 
        RowBox[{"N", "[", 
         RowBox[{
          SubscriptBox["N", "\[Gamma]"], "/.", " ", 
          RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
           SubscriptBox["\[CurlyPhi]", 
            RowBox[{"f", "/", "1"}]]}]}], "]"}]}], ";", "\n", "\n", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                   "La", " ", "formula", " ", "di", " ", "Terzaghi", " ", 
                    "\[EGrave]", " ", "stata", " ", "ricavata", " ", "nelle", 
                    " ", "seguenti", " ", 
                    RowBox[{"ipotesi", ":", "\n", "1"}]}], ")"}], " ", 
                  "striscia", " ", "di", " ", "carico", " ", "indefinita", 
                  "\n", "2"}], ")"}], " ", "rottura", " ", "generale", "\n", 
                "3"}], ")"}], " ", "carichi", " ", "verticali", " ", "e", " ",
               "centrati"}], ";", "\n", "4"}], ")"}], " ", "piano", " ", 
           "campagna", " ", "e", " ", "piano", " ", "di", " ", "posa", " ", 
           "orizzontali"}], ";", "\n", 
          RowBox[{
          "Nel", " ", "caso", " ", "in", " ", "esame", " ", "il", " ", 
           "carico", " ", "risulta", " ", "inclinato", " ", "di", " ", 
           FormBox[
            SubscriptBox["\[Alpha]", "d"],
            TraditionalForm], " ", "rispetto"}], ";", "\[IndentingNewLine]", 
          RowBox[{"alla", " ", "verticale"}]}], ",", " ", 
         RowBox[{
          RowBox[{
          "pertanto", " ", "si", " ", "introducono", " ", "i", " ", 
           "COEFFICIENTI", " ", "DI"}], " ", ";", 
          RowBox[{
          "INCLINAZIONE", " ", "DEL", " ", "CARICO", " ", "per", " ", 
           "terreno", " ", "dotato", " ", "di", " ", "attrito", " ", "e", " ",
            
           RowBox[{"coesione", "."}]}]}]}], "*)"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "q"], "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[CurlyPhi]", "f"], ">", "0"}], ",", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              SubscriptBox["q", "H"], 
              RowBox[{
               SubscriptBox["q", "V"], "+", 
               RowBox[{"c", "*", 
                RowBox[{"Cot", "[", "\[CurlyPhi]", "]"}]}]}]]}], ")"}], "2"], 
          ",", 
          RowBox[{"(", "1", ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "c"], "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[CurlyPhi]", "f"], ">", "0"}], ",", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["\[Xi]", "q"], "-", 
            FractionBox[
             RowBox[{"1", "-", 
              SubscriptBox["\[Xi]", "q"]}], 
             RowBox[{
              SubscriptBox["N", "c"], "*", 
              RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}]]}], ")"}], ",", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"2", "*", 
              SubscriptBox["q", "H"]}], 
             RowBox[{"c", "*", 
              SubscriptBox["N", "c"]}]]}], ")"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "\[Gamma]"], "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[CurlyPhi]", "f"], ">", "0"}], ",", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              SubscriptBox["q", "H"], 
              RowBox[{
               SubscriptBox["q", "V"], "+", 
               RowBox[{"c", "*", 
                RowBox[{"Cot", "[", "\[CurlyPhi]", "]"}]}]}]]}], ")"}], "3"], 
          ",", 
          RowBox[{"(", "1", ")"}]}], "]"}]}], ";", "\n", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"questi", " ", "coefficienti"}], ",", " ", 
         RowBox[{"come", " ", "si", " ", "pu\[OGrave]", " ", "vedere"}], ",", 
         " ", 
         RowBox[{
         "variano", " ", "in", " ", "funzione", " ", "dei", " ", "carichi", 
          " ", "qv", " ", "e", " ", 
          FormBox[
           SubscriptBox["q", "H"],
           TraditionalForm], " ", "ma", " ", "gli", " ", "stessi", " ", 
          "carichi", " ", "qv", " ", "e", " ", "qH", " ", "variano", " ", 
          "in", " ", "funzione", " ", "dei", " ", "coefficienti", " ", 
          "\[Xi]", " ", "Per", " ", "poter", " ", "calcolare", " ", "qv", " ",
           "si", " ", "procede", " ", "in", " ", "modo", " ", 
          RowBox[{"iterativo", ".", "\n", "Inizialmente"}], " ", "si", " ", 
          "assegna", " ", "agli", " ", "\[Xi]", " ", "un", " ", "valore", " ",
           "unitario", " ", "e", " ", "si", " ", "calcola", " ", "il", " ", 
          "valore", " ", "di", " ", 
          RowBox[{"qv", ".", "\n", "con"}], " ", "il", " ", "valore", " ", 
          "di", " ", "qv", " ", "ottenuto", " ", "si", " ", "calcolano", " ", 
          "gli", " ", 
          RowBox[{"\[Xi]", ".", "\n", "Se"}], " ", "gli", " ", "\[Xi]", " ", 
          "calcolati", " ", "sono", " ", "uguali", " ", "a", " ", "quelli", 
          " ", "inseriti", " ", "inizialmente", " ", "le", " ", "iterazioni", 
          " ", 
          RowBox[{"terminano", ".", "\n", "Se"}], " ", "gli", " ", "\[Xi]", 
          " ", "calcolati", " ", "non", " ", "sono", " ", "uguali", " ", "a", 
          " ", "quelli", " ", "inseriti", " ", "inizialmente", " ", "\n", 
          "si", " ", "pongono", " ", "questi", " ", "come", " ", "dato", " ", 
          "iniziale", " ", "ottenendo", " ", "un", " ", "nuovo", " ", 
          "valore", " ", "di", " ", 
          RowBox[{"qv", ".", "\n", "a"}], " ", "questo", " ", "punto", " ", 
          "le", " ", "operazioni", " ", "sopra", " ", "esposte", " ", 
          "vengono", " ", "reiterate", " ", "fino", " ", "a", " ", "quando", 
          " ", "i", " ", "valori", " ", "degli", " ", "\[Xi]", " ", 
          "iniziali", " ", "non", " ", "coincidono", " ", "con", " ", 
          "quelli", " ", 
          RowBox[{"calcolati", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "q1"], "=", "1"}], ";", 
       RowBox[{
        SubscriptBox["\[Xi]", "c1"], "=", "1"}], ";", 
       RowBox[{
        SubscriptBox["\[Xi]", "\[Gamma]1"], "=", "1"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["q", "VLd"], "=", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Xi]", "q1"], "*", 
           SubscriptBox["N", "qd"], "*", 
           SubscriptBox["\[Gamma]", "fd"], "*", "Df"}], "+", 
          RowBox[{
           SubscriptBox["\[Xi]", "c1"], "*", 
           SubscriptBox["N", "cd"], "*", "c"}], "+", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]1"], "*", 
           SubscriptBox["N", "\[Gamma]d"], "*", 
           SubscriptBox["\[Gamma]", "fd"], "*", 
           RowBox[{"(", 
            RowBox[{
             FractionBox["B", "2"], "-", 
             SubscriptBox["e", "d"]}], ")"}]}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", 
             SubscriptBox["\[Gamma]", "cq"]}]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "fd"], "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[Gamma]", "f"], "*", 
             SubscriptBox["\[Gamma]", "G1Fq"]}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["q", "Hd"], "=", 
        RowBox[{
         RowBox[{"c", "+", 
          RowBox[{
           SubscriptBox["q", "VLd"], "*", 
           RowBox[{"Tan", "[", 
            SubscriptBox["\[Alpha]", "d"], "]"}]}]}], "/.", 
         RowBox[{"{", 
          RowBox[{"c", "\[Rule]", " ", 
           RowBox[{
            SubscriptBox["c", "f"], "/", 
            SubscriptBox["\[Gamma]", "cq"]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "qd"], "=", 
        RowBox[{
         SubscriptBox["\[Xi]", "q"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["q", "V"], "\[Rule]", " ", 
            SubscriptBox["q", "VLd"]}], ",", 
           RowBox[{
            SubscriptBox["q", "H"], "\[Rule]", " ", 
            SubscriptBox["q", "Hd"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            SubscriptBox["\[CurlyPhi]", 
             RowBox[{"f", "/", 
              SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}], ",", 
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", 
             SubscriptBox["\[Gamma]", "cq"]}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "cd"], "=", 
        RowBox[{
         SubscriptBox["\[Xi]", "c"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["q", "V"], "\[Rule]", " ", 
            SubscriptBox["q", "VLd"]}], ",", 
           RowBox[{
            SubscriptBox["q", "H"], "\[Rule]", " ", 
            SubscriptBox["q", "Hd"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            SubscriptBox["\[CurlyPhi]", 
             RowBox[{"f", "/", 
              SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}], ",", 
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", 
             SubscriptBox["\[Gamma]", "cq"]}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "\[Gamma]d"], "=", 
        RowBox[{
         SubscriptBox["\[Xi]", "\[Gamma]"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["q", "V"], "\[Rule]", " ", 
            SubscriptBox["q", "VLd"]}], ",", 
           RowBox[{
            SubscriptBox["q", "H"], "\[Rule]", " ", 
            SubscriptBox["q", "Hd"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            SubscriptBox["\[CurlyPhi]", 
             RowBox[{"f", "/", 
              SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}], ",", 
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", 
             SubscriptBox["\[Gamma]", "cq"]}]}]}], "}"}]}]}], ";", "\n", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Xi]", "qd"], "<", 
          SubscriptBox["\[Xi]", "q1"]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Xi]", "q1"], "=", 
           SubscriptBox["\[Xi]", "qd"]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "c1"], "=", 
           SubscriptBox["\[Xi]", "cd"]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]1"], "=", 
           SubscriptBox["\[Xi]", "\[Gamma]d"]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["q", "VLd"], "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              SubscriptBox["\[Xi]", "qd"], "*", 
              SubscriptBox["N", "qd"], "*", 
              SubscriptBox["\[Gamma]", "fd"], "*", "Df"}], "+", 
             RowBox[{
              SubscriptBox["\[Xi]", "cd"], "*", 
              SubscriptBox["N", "cd"], "*", "c"}], "+", 
             RowBox[{
              SubscriptBox["\[Xi]", "\[Gamma]d"], "*", 
              SubscriptBox["N", "\[Gamma]d"], "*", 
              SubscriptBox["\[Gamma]", "fd"], "*", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["B", "2"], "-", 
                SubscriptBox["e", "d"]}], ")"}]}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", 
                SubscriptBox["\[Gamma]", "cq"]}]}], ",", 
              RowBox[{
               SubscriptBox["\[Gamma]", "fd"], "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["\[Gamma]", "f"], "*", 
                SubscriptBox["\[Gamma]", "G1Fq"]}]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["q", "Hd"], "=", 
           RowBox[{
            RowBox[{"c", "+", 
             RowBox[{
              SubscriptBox["q", "VLd"], "*", 
              RowBox[{"Tan", "[", 
               SubscriptBox["\[Alpha]", "d"], "]"}]}]}], "/.", 
            RowBox[{"{", 
             RowBox[{"c", "\[Rule]", " ", 
              RowBox[{
               SubscriptBox["c", "f"], "/", 
               SubscriptBox["\[Gamma]", "cq"]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "qd"], "=", 
           RowBox[{
            SubscriptBox["\[Xi]", "q"], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["q", "V"], "\[Rule]", " ", 
               SubscriptBox["q", "VLd"]}], ",", 
              RowBox[{
               SubscriptBox["q", "H"], "\[Rule]", " ", 
               SubscriptBox["q", "Hd"]}], ",", 
              RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
               SubscriptBox["\[CurlyPhi]", 
                RowBox[{"f", "/", 
                 SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}], ",", 
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", 
                SubscriptBox["\[Gamma]", "cq"]}]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "cd"], "=", 
           RowBox[{
            SubscriptBox["\[Xi]", "c"], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["q", "V"], "\[Rule]", " ", 
               SubscriptBox["q", "VLd"]}], ",", 
              RowBox[{
               SubscriptBox["q", "H"], "\[Rule]", " ", 
               SubscriptBox["q", "Hd"]}], ",", 
              RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
               SubscriptBox["\[CurlyPhi]", 
                RowBox[{"f", "/", 
                 SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}], ",", 
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", 
                SubscriptBox["\[Gamma]", "cq"]}]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]d"], "=", 
           RowBox[{
            SubscriptBox["\[Xi]", "\[Gamma]"], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["q", "V"], "\[Rule]", " ", 
               SubscriptBox["q", "VLd"]}], ",", 
              RowBox[{
               SubscriptBox["q", "H"], "\[Rule]", " ", 
               SubscriptBox["q", "Hd"]}], ",", 
              RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
               SubscriptBox["\[CurlyPhi]", 
                RowBox[{"f", "/", 
                 SubscriptBox["\[Gamma]", "\[CurlyPhi]q"]}]]}], ",", 
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", 
                SubscriptBox["\[Gamma]", "cq"]}]}]}], "}"}]}]}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\n", 
       RowBox[{
        SubscriptBox["\[Xi]", "q2"], "=", "1"}], ";", 
       RowBox[{
        SubscriptBox["\[Xi]", "c2"], "=", "1"}], ";", 
       RowBox[{
        SubscriptBox["\[Xi]", "\[Gamma]2"], "=", "1"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["q", "VLk"], "=", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Xi]", "q2"], "*", 
           SubscriptBox["N", "qk"], "*", 
           SubscriptBox["\[Gamma]", "td"], "*", "Df"}], "+", 
          RowBox[{
           SubscriptBox["\[Xi]", "c2"], "*", 
           SubscriptBox["N", "ck"], "*", "c"}], "+", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]2"], "*", 
           SubscriptBox["N", "\[Gamma]k"], "*", 
           SubscriptBox["\[Gamma]", "fd"], "*", 
           RowBox[{"(", 
            RowBox[{
             FractionBox["B", "2"], "-", 
             SubscriptBox["e", "d"]}], ")"}]}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", "1"}]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "td"], "\[Rule]", " ", 
            SubscriptBox["\[Gamma]", "t"]}], ",", 
           RowBox[{
            SubscriptBox["\[Gamma]", "fd"], "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["\[Gamma]", "f"], "*", 
             SubscriptBox["\[Gamma]", "G1Fq"]}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["q", "Hk"], "=", 
        RowBox[{
         RowBox[{"c", "+", 
          RowBox[{
           SubscriptBox["q", "VLk"], "*", 
           RowBox[{"Tan", "[", 
            SubscriptBox["\[Alpha]", "d"], "]"}]}]}], "/.", 
         RowBox[{"{", 
          RowBox[{"c", "\[Rule]", " ", 
           RowBox[{
            SubscriptBox["c", "f"], "/", "1"}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "qk"], "=", 
        RowBox[{
         SubscriptBox["\[Xi]", "q"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["q", "V"], "\[Rule]", " ", 
            SubscriptBox["q", "VLk"]}], ",", 
           RowBox[{
            SubscriptBox["q", "H"], "\[Rule]", " ", 
            SubscriptBox["q", "Hk"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            SubscriptBox["\[CurlyPhi]", 
             RowBox[{"f", "/", "1"}]]}], ",", 
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", "1"}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "ck"], "=", 
        RowBox[{
         SubscriptBox["\[Xi]", "c"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["q", "V"], "\[Rule]", " ", 
            SubscriptBox["q", "VLk"]}], ",", 
           RowBox[{
            SubscriptBox["q", "H"], "\[Rule]", " ", 
            SubscriptBox["q", "Hk"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            SubscriptBox["\[CurlyPhi]", 
             RowBox[{"f", "/", "1"}]]}], ",", 
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", "1"}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        SubscriptBox["\[Xi]", "\[Gamma]k"], "=", 
        RowBox[{
         SubscriptBox["\[Xi]", "\[Gamma]"], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["q", "V"], "\[Rule]", " ", 
            SubscriptBox["q", "VLk"]}], ",", 
           RowBox[{
            SubscriptBox["q", "H"], "\[Rule]", " ", 
            SubscriptBox["q", "Hk"]}], ",", 
           RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
            SubscriptBox["\[CurlyPhi]", 
             RowBox[{"f", "/", "1"}]]}], ",", 
           RowBox[{"c", "\[Rule]", " ", 
            RowBox[{
             SubscriptBox["c", "f"], "/", "1"}]}]}], "}"}]}]}], ";", "\n", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Xi]", "qk"], "<", 
          SubscriptBox["\[Xi]", "q2"]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Xi]", "q2"], "=", 
           SubscriptBox["\[Xi]", "qk"]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "c2"], "=", 
           SubscriptBox["\[Xi]", "ck"]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]2"], "=", 
           SubscriptBox["\[Xi]", "\[Gamma]k"]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["q", "VLk"], "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              SubscriptBox["\[Xi]", "qk"], "*", 
              SubscriptBox["N", "qk"], "*", 
              SubscriptBox["\[Gamma]", "td"], "*", "Df"}], "+", 
             RowBox[{
              SubscriptBox["\[Xi]", "ck"], "*", 
              SubscriptBox["N", "ck"], "*", "c"}], "+", 
             RowBox[{
              SubscriptBox["\[Xi]", "\[Gamma]k"], "*", 
              SubscriptBox["N", "\[Gamma]k"], "*", 
              SubscriptBox["\[Gamma]", "fd"], "*", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["B", "2"], "-", 
                SubscriptBox["e", "d"]}], ")"}]}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", "1"}]}], ",", 
              RowBox[{
               SubscriptBox["\[Gamma]", "td"], "\[Rule]", " ", 
               SubscriptBox["\[Gamma]", "t"]}], ",", 
              RowBox[{
               SubscriptBox["\[Gamma]", "fd"], "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["\[Gamma]", "f"], "*", 
                SubscriptBox["\[Gamma]", "G1Fq"]}]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["q", "Hk"], "=", 
           RowBox[{
            RowBox[{"c", "+", 
             RowBox[{
              SubscriptBox["q", "VLk"], "*", 
              RowBox[{"Tan", "[", 
               SubscriptBox["\[Alpha]", "k"], "]"}]}]}], "/.", 
            RowBox[{"{", 
             RowBox[{"c", "\[Rule]", " ", 
              RowBox[{
               SubscriptBox["c", "f"], "/", "1"}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "qk"], "=", 
           RowBox[{
            SubscriptBox["\[Xi]", "q"], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["q", "V"], "\[Rule]", " ", 
               SubscriptBox["q", "VLk"]}], ",", 
              RowBox[{
               SubscriptBox["q", "H"], "\[Rule]", " ", 
               SubscriptBox["q", "Hk"]}], ",", 
              RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
               SubscriptBox["\[CurlyPhi]", 
                RowBox[{"f", "/", "1"}]]}], ",", 
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", "1"}]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "ck"], "=", 
           RowBox[{
            SubscriptBox["\[Xi]", "c"], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["q", "V"], "\[Rule]", " ", 
               SubscriptBox["q", "VLk"]}], ",", 
              RowBox[{
               SubscriptBox["q", "H"], "\[Rule]", " ", 
               SubscriptBox["q", "Hk"]}], ",", 
              RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
               SubscriptBox["\[CurlyPhi]", 
                RowBox[{"f", "/", "1"}]]}], ",", 
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", "1"}]}]}], "}"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           SubscriptBox["\[Xi]", "\[Gamma]k"], "=", 
           RowBox[{
            SubscriptBox["\[Xi]", "\[Gamma]"], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["q", "V"], "\[Rule]", " ", 
               SubscriptBox["q", "VLk"]}], ",", 
              RowBox[{
               SubscriptBox["q", "H"], "\[Rule]", " ", 
               SubscriptBox["q", "Hk"]}], ",", 
              RowBox[{"\[CurlyPhi]", "\[Rule]", " ", 
               SubscriptBox["\[CurlyPhi]", 
                RowBox[{"f", "/", "1"}]]}], ",", 
              RowBox[{"c", "\[Rule]", " ", 
               RowBox[{
                SubscriptBox["c", "f"], "/", "1"}]}]}], "}"}]}]}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\n", 
       RowBox[{
        SubscriptBox["Q", "VLDd"], "=", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            RowBox[{"(", 
             RowBox[{"B", "-", 
              RowBox[{"2", 
               SubscriptBox["e", "d"]}]}], ")"}], "*", 
            SubscriptBox["q", "VLd"]}], 
           SubscriptBox["\[Gamma]", "Rd"]], ")"}], "/.", 
         RowBox[{
          SubscriptBox["\[Gamma]", "Rd"], "\[Rule]", 
          SubscriptBox["\[Gamma]", "Rq"]}]}]}], ";", "\[IndentingNewLine]", 
       SubscriptBox["Q", "Vd"], ";", "\n", 
       RowBox[{
        SubscriptBox["Q", "VLDk"], "=", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            RowBox[{"(", 
             RowBox[{"B", "-", 
              RowBox[{"2", 
               SubscriptBox["e", "k"]}]}], ")"}], "*", 
            SubscriptBox["q", "VLk"]}], 
           SubscriptBox["\[Gamma]", "Rd"]], ")"}], "/.", 
         RowBox[{
          SubscriptBox["\[Gamma]", "Rd"], "\[Rule]", " ", "1"}]}]}], ";", 
       "\[IndentingNewLine]", 
       SubscriptBox["Q", "Vk"], ";", "\n", 
       RowBox[{
        SubscriptBox["F", "qd"], "=", 
        FractionBox[
         SubscriptBox["Q", "VLDd"], 
         RowBox[{
          SubscriptBox["Q", "Vd"], " "}]]}], ";", "\n", 
       RowBox[{
        SubscriptBox["F", "q"], "=", 
        FractionBox[
         SubscriptBox["Q", "VLDk"], 
         RowBox[{
          SubscriptBox["Q", "Vk"], " "}]]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"Grid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(F\), \(r\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(F\), \(rd\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(F\), \(s\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(F\), \(sd\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(F\), \(q\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(F\), \(qd\)]\)\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             SubscriptBox["F", "r"], ",", 
             SubscriptBox["F", "rd"], ",", 
             SubscriptBox["F", "s"], ",", 
             SubscriptBox["F", "sd"], ",", 
             SubscriptBox["F", "q"], ",", 
             SubscriptBox["F", "qd"]}], "}"}]}], "}"}], ",", 
         RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"B", ",", "0.4", ",", "2"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5309433047020683`*^9, 3.5309433383821154`*^9}, {
   3.531224426920601*^9, 3.5312244707851095`*^9}, {3.531224539252026*^9, 
   3.5312246833602686`*^9}, {3.531224717214205*^9, 3.5312247472659235`*^9}, {
   3.531224780814842*^9, 3.531224816512884*^9}, {3.531224867031774*^9, 
   3.531224907164069*^9}, {3.5312886784982166`*^9, 3.5312887256258993`*^9}, {
   3.53128902776723*^9, 3.5312890364408455`*^9}, {3.5312891303686104`*^9, 
   3.5312892246239758`*^9}, {3.531289266151249*^9, 3.5312893538858027`*^9}, 
   3.5312893855850587`*^9, {3.5312894321355405`*^9, 3.5312894599035892`*^9}, {
   3.5312895021952634`*^9, 3.531289554190155*^9}, {3.531289601595838*^9, 
   3.531289657974337*^9}, {3.5312896986124086`*^9, 3.5312897207332473`*^9}, {
   3.53129006399625*^9, 3.531290107473527*^9}, {3.531290327605513*^9, 
   3.531290342347539*^9}, {3.5312904724205675`*^9, 3.531290595036783*^9}, {
   3.5312906324768486`*^9, 3.531290692833355*^9}, {3.5312907329410253`*^9, 
   3.5312907809423094`*^9}, {3.531291004506302*^9, 3.531291004818303*^9}, {
   3.5312911165144987`*^9, 3.531291149508557*^9}, {3.5312913634087334`*^9, 
   3.5312913989767957`*^9}, {3.531291481766141*^9, 3.5312915156494007`*^9}, {
   3.5312917013989267`*^9, 3.5312918198499346`*^9}, 3.5312919387377434`*^9, {
   3.531292080744793*^9, 3.5312921321624837`*^9}, {3.5312921875893807`*^9, 
   3.5312922222214413`*^9}, {3.531292317615609*^9, 3.5312924195773883`*^9}, {
   3.531292478670292*^9, 3.531292491259514*^9}, {3.531292545188809*^9, 
   3.531292549182416*^9}, {3.531292600085305*^9, 3.5312926120037265`*^9}, 
   3.5312926969302754`*^9, {3.531292734635542*^9, 3.5312927850860305`*^9}, {
   3.531293675239194*^9, 3.531293695503629*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`B$$ = 0.4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`B$$], 0.4, 2}}, Typeset`size$$ = {554., {15.5, 22.5}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`B$4091$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`B$$ = 0.4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`B$$, $CellContext`B$4091$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> {$CellContext`B$$, 
        Subscript[$CellContext`A, $CellContext`p1] = $CellContext`Bpt \
$CellContext`\[CapitalDelta]; 
        Subscript[$CellContext`x, $CellContext`p1] = $CellContext`B$$ - \
$CellContext`Bi - $CellContext`Bpt/2; 
        Subscript[$CellContext`y, $CellContext`p1] = $CellContext`Df + \
$CellContext`\[CapitalDelta]/2; 
        Subscript[$CellContext`A, $CellContext`p2] = ($CellContext`Bpb - \
$CellContext`Bpt) ($CellContext`\[CapitalDelta]/2); 
        Subscript[$CellContext`x, $CellContext`p2] = $CellContext`B$$ - \
$CellContext`Bi - $CellContext`Bpt - (1/
           3) ($CellContext`Bpb - $CellContext`Bpt); 
        Subscript[$CellContext`y, $CellContext`p2] = $CellContext`Df + \
$CellContext`\[CapitalDelta]/3; 
        Subscript[$CellContext`A, $CellContext`p3] = $CellContext`B$$ \
$CellContext`Df; 
        Subscript[$CellContext`x, $CellContext`p3] = $CellContext`B$$/2; 
        Subscript[$CellContext`y, $CellContext`p3] = $CellContext`Df/2; 
        Subscript[$CellContext`A, $CellContext`w] = 
         Subscript[$CellContext`A, $CellContext`p1] + 
          Subscript[$CellContext`A, $CellContext`p2] + 
          Subscript[$CellContext`A, $CellContext`p3]; 
        Subscript[$CellContext`x, $CellContext`w] = (
           Subscript[$CellContext`A, $CellContext`p1] 
            Subscript[$CellContext`x, $CellContext`p1] + 
           Subscript[$CellContext`A, $CellContext`p2] 
            Subscript[$CellContext`x, $CellContext`p2] + 
           Subscript[$CellContext`A, $CellContext`p3] 
            Subscript[$CellContext`x, $CellContext`p3])/
          Subscript[$CellContext`A, $CellContext`w]; 
        Subscript[$CellContext`y, $CellContext`w] = (
           Subscript[$CellContext`A, $CellContext`p1] 
            Subscript[$CellContext`y, $CellContext`p1] + 
           Subscript[$CellContext`A, $CellContext`p2] 
            Subscript[$CellContext`y, $CellContext`p2] + 
           Subscript[$CellContext`A, $CellContext`p3] 
            Subscript[$CellContext`y, $CellContext`p3])/
          Subscript[$CellContext`A, $CellContext`w]; 
        Subscript[$CellContext`W, $CellContext`w] = 
         Subscript[$CellContext`\[Gamma], $CellContext`G1F] 
          Subscript[$CellContext`\[Gamma], $CellContext`p] 
          Subscript[$CellContext`A, $CellContext`w]; 
        Subscript[$CellContext`M, $CellContext`w] = 
         Subscript[$CellContext`\[Gamma], $CellContext`G1F] 
          Subscript[$CellContext`\[Gamma], $CellContext`p] 
          Subscript[$CellContext`A, $CellContext`w] 
          Subscript[$CellContext`x, $CellContext`w]; 
        Subscript[$CellContext`k, $CellContext`a] = 
         N[(Sin[$CellContext`\[Beta] - $CellContext`\[CurlyPhi]] 
            Sin[$CellContext`\[Beta]]^(-1)/(
            Sin[$CellContext`\[Beta] + $CellContext`\[Delta]]^
             Rational[1, 2] + (
              Sin[$CellContext`\[Delta] + $CellContext`\[CurlyPhi]] 
              Sin[$CellContext`\[CurlyPhi] - $CellContext`\[Epsilon]]/
              Sin[$CellContext`\[Beta] - $CellContext`\[Epsilon]])^
             Rational[1, 2]))^2]; 
        Subscript[$CellContext`S, $CellContext`a] = 
         Subscript[$CellContext`\[Gamma], $CellContext`G1S] (1/2) 
          Subscript[$CellContext`\[Gamma], $CellContext`t] $CellContext`Hm^2 
          Subscript[$CellContext`k, $CellContext`a]; 
        Subscript[$CellContext`S, $CellContext`ah] = 
         Subscript[$CellContext`S, $CellContext`a] Cos[$CellContext`\[Delta]]; 
        Subscript[$CellContext`S, $CellContext`av] = 
         Subscript[$CellContext`S, $CellContext`a] Sin[$CellContext`\[Delta]]; 
        Subscript[$CellContext`M, $CellContext`Sa] = (1/3) $CellContext`Hm 
           Subscript[$CellContext`S, $CellContext`ah] - $CellContext`B$$ 
          Subscript[$CellContext`S, $CellContext`av]; 
        Subscript[$CellContext`M, $CellContext`rd] = ReplaceAll[
           Subscript[$CellContext`M, $CellContext`Sa], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Sr], \
$CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]r], \
$CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]r], \
$CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`M, $CellContext`sd] = ReplaceAll[
           Subscript[$CellContext`M, $CellContext`w], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Fr]}]; 
        Subscript[$CellContext`M, $CellContext`r] = ReplaceAll[
           Subscript[$CellContext`M, $CellContext`Sa], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            1, $CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             1, $CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             1, $CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`M, $CellContext`s] = ReplaceAll[
           Subscript[$CellContext`M, $CellContext`w], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 1}]; 
        Subscript[$CellContext`F, $CellContext`rd] = 
         Subscript[$CellContext`M, $CellContext`sd]/
          Subscript[$CellContext`M, $CellContext`rd]; 
        Subscript[$CellContext`F, $CellContext`r] = 
         Subscript[$CellContext`M, $CellContext`s]/
          Subscript[$CellContext`M, $CellContext`r]; 
        Subscript[$CellContext`T, $CellContext`d] = ReplaceAll[
           Subscript[$CellContext`S, $CellContext`ah], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Ss], \
$CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]s], \
$CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]s], \
$CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`T, $CellContext`LDd] = 
         ReplaceAll[(Subscript[$CellContext`W, $CellContext`w] + 
            Subscript[$CellContext`S, $CellContext`av]) Tan[
             Subscript[$CellContext`\[Delta], $CellContext`fd]]/
           Subscript[$CellContext`\[Gamma], $CellContext`R], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Ss], 
            Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Fs], 
            Subscript[$CellContext`\[Delta], $CellContext`fd] -> 
            Subscript[$CellContext`\[Delta], $CellContext`f]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]s], \
$CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]s], \
$CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]s], \
$CellContext`\[Epsilon] -> Subscript[$CellContext`\[Epsilon], $CellContext`t],
             Subscript[$CellContext`\[Gamma], $CellContext`R] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`Rs]}]; 
        Subscript[$CellContext`T, $CellContext`k] = ReplaceAll[
           Subscript[$CellContext`S, $CellContext`ah], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            1, $CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             1, $CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             1, $CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`T, $CellContext`LDk] = 
         ReplaceAll[(Subscript[$CellContext`W, $CellContext`w] + 
            Subscript[$CellContext`S, $CellContext`av]) Tan[
             Subscript[$CellContext`\[Delta], $CellContext`fd]]/
           Subscript[$CellContext`\[Gamma], $CellContext`R], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 1, 
            Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 1, 
            Subscript[$CellContext`\[Delta], $CellContext`fd] -> 
            Subscript[$CellContext`\[Delta], $CellContext`f]/
             1, $CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             1, $CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             1, $CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t], 
            Subscript[$CellContext`\[Gamma], $CellContext`R] -> 1}]; 
        Subscript[$CellContext`F, $CellContext`sd] = 
         Subscript[$CellContext`T, $CellContext`LDd]/
          Subscript[$CellContext`T, $CellContext`d]; 
        Subscript[$CellContext`F, $CellContext`s] = 
         Subscript[$CellContext`T, $CellContext`LDk]/
          Subscript[$CellContext`T, $CellContext`k]; 
        Subscript[$CellContext`Q, $CellContext`Vd] = 
         ReplaceAll[
          Subscript[$CellContext`W, $CellContext`w] + 
           Subscript[$CellContext`S, $CellContext`av], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Sq], 
            Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Sq], \
$CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q], \
$CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q], \
$CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`Q, $CellContext`Vk] = 
         ReplaceAll[
          Subscript[$CellContext`W, $CellContext`w] + 
           Subscript[$CellContext`S, $CellContext`av], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 1, 
            Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 
            1, $CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             1, $CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             1, $CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`Q, $CellContext`Hd] = ReplaceAll[
           Subscript[$CellContext`S, $CellContext`ah], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Sq], \
$CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q], \
$CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q], \
$CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`Q, $CellContext`Hk] = ReplaceAll[
           Subscript[$CellContext`S, $CellContext`ah], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            1, $CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             1, $CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             1, $CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`\[Alpha], $CellContext`d] = 
         ArcTan[Subscript[$CellContext`Q, $CellContext`Hd]/
           Subscript[$CellContext`Q, $CellContext`Vd]]; 
        Subscript[$CellContext`\[Alpha], $CellContext`d]/Degree; 
        Subscript[$CellContext`\[Alpha], $CellContext`k] = 
         ArcTan[Subscript[$CellContext`Q, $CellContext`Hk]/
           Subscript[$CellContext`Q, $CellContext`Vk]]; 
        Subscript[$CellContext`\[Alpha], $CellContext`k]/Degree; 
        Subscript[$CellContext`M, $CellContext`d] = 
         ReplaceAll[(1/3) $CellContext`Hm 
            Subscript[$CellContext`S, $CellContext`ah] - ($CellContext`B$$/2) 
           Subscript[$CellContext`S, $CellContext`av] - (
            Subscript[$CellContext`x, $CellContext`w] - $CellContext`B$$/2) 
           Subscript[$CellContext`W, $CellContext`w], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Sq], 
            Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`G1Sq], \
$CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q], \
$CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q], \
$CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`e, $CellContext`d] = 
         Subscript[$CellContext`M, $CellContext`d]/
          Subscript[$CellContext`Q, $CellContext`Vd]; 
        Subscript[$CellContext`M, $CellContext`k] = 
         ReplaceAll[(1/3) $CellContext`Hm 
            Subscript[$CellContext`S, $CellContext`ah] - ($CellContext`B$$/2) 
           Subscript[$CellContext`S, $CellContext`av] - (
            Subscript[$CellContext`x, $CellContext`w] - $CellContext`B$$/2) 
           Subscript[$CellContext`W, $CellContext`w], {
           Subscript[$CellContext`\[Gamma], $CellContext`G1S] -> 1, 
            Subscript[$CellContext`\[Gamma], $CellContext`G1F] -> 
            1, $CellContext`\[Delta] -> 
            Subscript[$CellContext`\[Delta], $CellContext`p]/
             1, $CellContext`\[Beta] -> 
            Subscript[$CellContext`\[Beta], $CellContext`p], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`t]/
             1, $CellContext`\[Epsilon] -> 
            Subscript[$CellContext`\[Epsilon], $CellContext`t]}]; 
        Subscript[$CellContext`e, $CellContext`k] = 
         Subscript[$CellContext`M, $CellContext`k]/
          Subscript[$CellContext`Q, $CellContext`Vk]; 
        Subscript[$CellContext`Q, $CellContext`VLDd] = ($CellContext`B$$ - 2 
           Subscript[$CellContext`e, $CellContext`d]) 
          Subscript[$CellContext`q, $CellContext`VL]/
          Subscript[$CellContext`\[Gamma], $CellContext`R]; 
        Subscript[
          N, $CellContext`q] = ((1 + Sin[$CellContext`\[CurlyPhi]])/(1 - 
           Sin[$CellContext`\[CurlyPhi]])) 
          Exp[Pi Tan[$CellContext`\[CurlyPhi]]]; 
        Subscript[N, $CellContext`c] = 
         If[Subscript[$CellContext`\[CurlyPhi], $CellContext`f] > 
           0, (Subscript[N, $CellContext`q] - 1) 
           Cot[$CellContext`\[CurlyPhi]], 2 + Pi]; 
        Subscript[N, $CellContext`\[Gamma]] = 
         2 (Subscript[N, $CellContext`q] + 1) Tan[$CellContext`\[CurlyPhi]]; 
        Subscript[N, $CellContext`qd] = N[
           ReplaceAll[
            Subscript[N, $CellContext`q], $CellContext`\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]]]]; 
        Subscript[N, $CellContext`cd] = N[
           ReplaceAll[
            Subscript[N, $CellContext`c], $CellContext`\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]]]]; 
        Subscript[N, $CellContext`\[Gamma]d] = N[
           ReplaceAll[
            Subscript[N, $CellContext`\[Gamma]], $CellContext`\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]]]]; 
        Subscript[N, $CellContext`qk] = N[
           ReplaceAll[
            Subscript[N, $CellContext`q], $CellContext`\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/1]]]; 
        Subscript[N, $CellContext`ck] = N[
           ReplaceAll[
            Subscript[N, $CellContext`c], $CellContext`\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/1]]]; 
        Subscript[N, $CellContext`\[Gamma]k] = N[
           ReplaceAll[
            Subscript[N, $CellContext`\[Gamma]], $CellContext`\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/1]]]; Null; 
        Subscript[$CellContext`\[Xi], $CellContext`q] = 
         If[Subscript[$CellContext`\[CurlyPhi], $CellContext`f] > 
           0, (1 - Subscript[$CellContext`q, $CellContext`H]/(
            Subscript[$CellContext`q, $CellContext`V] + $CellContext`c 
             Cot[$CellContext`\[CurlyPhi]]))^2, 1]; 
        Subscript[$CellContext`\[Xi], $CellContext`c] = 
         If[Subscript[$CellContext`\[CurlyPhi], $CellContext`f] > 0, 
           Subscript[$CellContext`\[Xi], $CellContext`q] - (1 - 
            Subscript[$CellContext`\[Xi], $CellContext`q])/(
           Subscript[N, $CellContext`c] Tan[$CellContext`\[CurlyPhi]]), 1 - 2 
           Subscript[$CellContext`q, $CellContext`H]/($CellContext`c 
           Subscript[N, $CellContext`c])]; 
        Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]] = 
         If[Subscript[$CellContext`\[CurlyPhi], $CellContext`f] > 
           0, (1 - Subscript[$CellContext`q, $CellContext`H]/(
            Subscript[$CellContext`q, $CellContext`V] + $CellContext`c 
             Cot[$CellContext`\[CurlyPhi]]))^3, 1]; 
        Subscript[$CellContext`\[Xi], $CellContext`q1] = 1; 
        Subscript[$CellContext`\[Xi], $CellContext`c1] = 1; 
        Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]1] = 1; 
        Subscript[$CellContext`q, $CellContext`VLd] = 
         ReplaceAll[
          Subscript[$CellContext`\[Xi], $CellContext`q1] 
            Subscript[N, $CellContext`qd] 
            Subscript[$CellContext`\[Gamma], $CellContext`fd] $CellContext`Df + 
           Subscript[$CellContext`\[Xi], $CellContext`c1] 
            Subscript[N, $CellContext`cd] $CellContext`c + 
           Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]1] 
            Subscript[N, $CellContext`\[Gamma]d] 
            Subscript[$CellContext`\[Gamma], $CellContext`fd] \
($CellContext`B$$/2 - 
             Subscript[$CellContext`e, $CellContext`d]), {$CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/
             Subscript[$CellContext`\[Gamma], $CellContext`cq], 
            Subscript[$CellContext`\[Gamma], $CellContext`fd] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`f] 
             Subscript[$CellContext`\[Gamma], $CellContext`G1Fq]}]; 
        Subscript[$CellContext`q, $CellContext`Hd] = 
         ReplaceAll[$CellContext`c + 
           Subscript[$CellContext`q, $CellContext`VLd] Tan[
              
              Subscript[$CellContext`\[Alpha], $CellContext`d]], \
{$CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/
             Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
        Subscript[$CellContext`\[Xi], $CellContext`qd] = ReplaceAll[
           Subscript[$CellContext`\[Xi], $CellContext`q], {
           Subscript[$CellContext`q, $CellContext`V] -> 
            Subscript[$CellContext`q, $CellContext`VLd], 
            Subscript[$CellContext`q, $CellContext`H] -> 
            Subscript[$CellContext`q, $CellContext`Hd], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]], \
$CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/
             Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
        Subscript[$CellContext`\[Xi], $CellContext`cd] = ReplaceAll[
           Subscript[$CellContext`\[Xi], $CellContext`c], {
           Subscript[$CellContext`q, $CellContext`V] -> 
            Subscript[$CellContext`q, $CellContext`VLd], 
            Subscript[$CellContext`q, $CellContext`H] -> 
            Subscript[$CellContext`q, $CellContext`Hd], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]], \
$CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/
             Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
        Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]d] = ReplaceAll[
           Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]], {
           Subscript[$CellContext`q, $CellContext`V] -> 
            Subscript[$CellContext`q, $CellContext`VLd], 
            Subscript[$CellContext`q, $CellContext`H] -> 
            Subscript[$CellContext`q, $CellContext`Hd], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]], \
$CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/
             Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
        While[Subscript[$CellContext`\[Xi], $CellContext`qd] < 
          Subscript[$CellContext`\[Xi], $CellContext`q1], 
          Subscript[$CellContext`\[Xi], $CellContext`q1] = 
           Subscript[$CellContext`\[Xi], $CellContext`qd]; 
          Subscript[$CellContext`\[Xi], $CellContext`c1] = 
           Subscript[$CellContext`\[Xi], $CellContext`cd]; 
          Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]1] = 
           Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]d]; 
          Subscript[$CellContext`q, $CellContext`VLd] = 
           ReplaceAll[
            Subscript[$CellContext`\[Xi], $CellContext`qd] 
              Subscript[N, $CellContext`qd] 
              Subscript[$CellContext`\[Gamma], $CellContext`fd] \
$CellContext`Df + 
             Subscript[$CellContext`\[Xi], $CellContext`cd] 
              Subscript[N, $CellContext`cd] $CellContext`c + 
             Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]d] 
              Subscript[N, $CellContext`\[Gamma]d] 
              Subscript[$CellContext`\[Gamma], $CellContext`fd] \
($CellContext`B$$/2 - 
               Subscript[$CellContext`e, $CellContext`d]), {$CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/
               Subscript[$CellContext`\[Gamma], $CellContext`cq], 
              Subscript[$CellContext`\[Gamma], $CellContext`fd] -> 
              Subscript[$CellContext`\[Gamma], $CellContext`f] 
               Subscript[$CellContext`\[Gamma], $CellContext`G1Fq]}]; 
          Subscript[$CellContext`q, $CellContext`Hd] = 
           ReplaceAll[$CellContext`c + 
             Subscript[$CellContext`q, $CellContext`VLd] Tan[
                
                Subscript[$CellContext`\[Alpha], $CellContext`d]], \
{$CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/
               Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
          Subscript[$CellContext`\[Xi], $CellContext`qd] = ReplaceAll[
             Subscript[$CellContext`\[Xi], $CellContext`q], {
             Subscript[$CellContext`q, $CellContext`V] -> 
              Subscript[$CellContext`q, $CellContext`VLd], 
              Subscript[$CellContext`q, $CellContext`H] -> 
              Subscript[$CellContext`q, $CellContext`Hd], $CellContext`\
\[CurlyPhi] -> Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
                Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]], \
$CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/
               Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
          Subscript[$CellContext`\[Xi], $CellContext`cd] = ReplaceAll[
             Subscript[$CellContext`\[Xi], $CellContext`c], {
             Subscript[$CellContext`q, $CellContext`V] -> 
              Subscript[$CellContext`q, $CellContext`VLd], 
              Subscript[$CellContext`q, $CellContext`H] -> 
              Subscript[$CellContext`q, $CellContext`Hd], $CellContext`\
\[CurlyPhi] -> Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
                Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]], \
$CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/
               Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; 
          Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]d] = ReplaceAll[
             Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]], {
             Subscript[$CellContext`q, $CellContext`V] -> 
              Subscript[$CellContext`q, $CellContext`VLd], 
              Subscript[$CellContext`q, $CellContext`H] -> 
              Subscript[$CellContext`q, $CellContext`Hd], $CellContext`\
\[CurlyPhi] -> Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
                Subscript[$CellContext`\[Gamma], $CellContext`\[CurlyPhi]q]], \
$CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/
               Subscript[$CellContext`\[Gamma], $CellContext`cq]}]; Null]; 
        Subscript[$CellContext`\[Xi], $CellContext`q2] = 1; 
        Subscript[$CellContext`\[Xi], $CellContext`c2] = 1; 
        Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]2] = 1; 
        Subscript[$CellContext`q, $CellContext`VLk] = 
         ReplaceAll[
          Subscript[$CellContext`\[Xi], $CellContext`q2] 
            Subscript[N, $CellContext`qk] 
            Subscript[$CellContext`\[Gamma], $CellContext`td] $CellContext`Df + 
           Subscript[$CellContext`\[Xi], $CellContext`c2] 
            Subscript[N, $CellContext`ck] $CellContext`c + 
           Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]2] 
            Subscript[N, $CellContext`\[Gamma]k] 
            Subscript[$CellContext`\[Gamma], $CellContext`fd] \
($CellContext`B$$/2 - 
             Subscript[$CellContext`e, $CellContext`d]), {$CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/1, 
            Subscript[$CellContext`\[Gamma], $CellContext`td] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`t], 
            Subscript[$CellContext`\[Gamma], $CellContext`fd] -> 
            Subscript[$CellContext`\[Gamma], $CellContext`f] 
             Subscript[$CellContext`\[Gamma], $CellContext`G1Fq]}]; 
        Subscript[$CellContext`q, $CellContext`Hk] = 
         ReplaceAll[$CellContext`c + 
           Subscript[$CellContext`q, $CellContext`VLk] Tan[
              
              Subscript[$CellContext`\[Alpha], $CellContext`d]], \
{$CellContext`c -> Subscript[$CellContext`c, $CellContext`f]/1}]; 
        Subscript[$CellContext`\[Xi], $CellContext`qk] = ReplaceAll[
           Subscript[$CellContext`\[Xi], $CellContext`q], {
           Subscript[$CellContext`q, $CellContext`V] -> 
            Subscript[$CellContext`q, $CellContext`VLk], 
            Subscript[$CellContext`q, $CellContext`H] -> 
            Subscript[$CellContext`q, $CellContext`Hk], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              1], $CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/1}]; 
        Subscript[$CellContext`\[Xi], $CellContext`ck] = ReplaceAll[
           Subscript[$CellContext`\[Xi], $CellContext`c], {
           Subscript[$CellContext`q, $CellContext`V] -> 
            Subscript[$CellContext`q, $CellContext`VLk], 
            Subscript[$CellContext`q, $CellContext`H] -> 
            Subscript[$CellContext`q, $CellContext`Hk], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              1], $CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/1}]; 
        Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]k] = ReplaceAll[
           Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]], {
           Subscript[$CellContext`q, $CellContext`V] -> 
            Subscript[$CellContext`q, $CellContext`VLk], 
            Subscript[$CellContext`q, $CellContext`H] -> 
            Subscript[$CellContext`q, $CellContext`Hk], $CellContext`\
\[CurlyPhi] -> 
            Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
              1], $CellContext`c -> 
            Subscript[$CellContext`c, $CellContext`f]/1}]; 
        While[Subscript[$CellContext`\[Xi], $CellContext`qk] < 
          Subscript[$CellContext`\[Xi], $CellContext`q2], 
          Subscript[$CellContext`\[Xi], $CellContext`q2] = 
           Subscript[$CellContext`\[Xi], $CellContext`qk]; 
          Subscript[$CellContext`\[Xi], $CellContext`c2] = 
           Subscript[$CellContext`\[Xi], $CellContext`ck]; 
          Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]2] = 
           Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]k]; 
          Subscript[$CellContext`q, $CellContext`VLk] = 
           ReplaceAll[
            Subscript[$CellContext`\[Xi], $CellContext`qk] 
              Subscript[N, $CellContext`qk] 
              Subscript[$CellContext`\[Gamma], $CellContext`td] \
$CellContext`Df + 
             Subscript[$CellContext`\[Xi], $CellContext`ck] 
              Subscript[N, $CellContext`ck] $CellContext`c + 
             Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]k] 
              Subscript[N, $CellContext`\[Gamma]k] 
              Subscript[$CellContext`\[Gamma], $CellContext`fd] \
($CellContext`B$$/2 - 
               Subscript[$CellContext`e, $CellContext`d]), {$CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/1, 
              Subscript[$CellContext`\[Gamma], $CellContext`td] -> 
              Subscript[$CellContext`\[Gamma], $CellContext`t], 
              Subscript[$CellContext`\[Gamma], $CellContext`fd] -> 
              Subscript[$CellContext`\[Gamma], $CellContext`f] 
               Subscript[$CellContext`\[Gamma], $CellContext`G1Fq]}]; 
          Subscript[$CellContext`q, $CellContext`Hk] = 
           ReplaceAll[$CellContext`c + 
             Subscript[$CellContext`q, $CellContext`VLk] Tan[
                
                Subscript[$CellContext`\[Alpha], $CellContext`k]], \
{$CellContext`c -> Subscript[$CellContext`c, $CellContext`f]/1}]; 
          Subscript[$CellContext`\[Xi], $CellContext`qk] = ReplaceAll[
             Subscript[$CellContext`\[Xi], $CellContext`q], {
             Subscript[$CellContext`q, $CellContext`V] -> 
              Subscript[$CellContext`q, $CellContext`VLk], 
              Subscript[$CellContext`q, $CellContext`H] -> 
              Subscript[$CellContext`q, $CellContext`Hk], $CellContext`\
\[CurlyPhi] -> Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
                1], $CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/1}]; 
          Subscript[$CellContext`\[Xi], $CellContext`ck] = ReplaceAll[
             Subscript[$CellContext`\[Xi], $CellContext`c], {
             Subscript[$CellContext`q, $CellContext`V] -> 
              Subscript[$CellContext`q, $CellContext`VLk], 
              Subscript[$CellContext`q, $CellContext`H] -> 
              Subscript[$CellContext`q, $CellContext`Hk], $CellContext`\
\[CurlyPhi] -> Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
                1], $CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/1}]; 
          Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]k] = ReplaceAll[
             Subscript[$CellContext`\[Xi], $CellContext`\[Gamma]], {
             Subscript[$CellContext`q, $CellContext`V] -> 
              Subscript[$CellContext`q, $CellContext`VLk], 
              Subscript[$CellContext`q, $CellContext`H] -> 
              Subscript[$CellContext`q, $CellContext`Hk], $CellContext`\
\[CurlyPhi] -> Subscript[$CellContext`\[CurlyPhi], $CellContext`f/
                1], $CellContext`c -> 
              Subscript[$CellContext`c, $CellContext`f]/1}]; Null]; 
        Subscript[$CellContext`Q, $CellContext`VLDd] = 
         ReplaceAll[($CellContext`B$$ - 2 
            Subscript[$CellContext`e, $CellContext`d]) 
           Subscript[$CellContext`q, $CellContext`VLd]/
           Subscript[$CellContext`\[Gamma], $CellContext`Rd], 
           Subscript[$CellContext`\[Gamma], $CellContext`Rd] -> 
           Subscript[$CellContext`\[Gamma], $CellContext`Rq]]; 
        Subscript[$CellContext`Q, $CellContext`Vd]; 
        Subscript[$CellContext`Q, $CellContext`VLDk] = 
         ReplaceAll[($CellContext`B$$ - 2 
            Subscript[$CellContext`e, $CellContext`k]) 
           Subscript[$CellContext`q, $CellContext`VLk]/
           Subscript[$CellContext`\[Gamma], $CellContext`Rd], 
           Subscript[$CellContext`\[Gamma], $CellContext`Rd] -> 1]; 
        Subscript[$CellContext`Q, $CellContext`Vk]; 
        Subscript[$CellContext`F, $CellContext`qd] = 
         Subscript[$CellContext`Q, $CellContext`VLDd]/
          Subscript[$CellContext`Q, $CellContext`Vd]; 
        Subscript[$CellContext`F, $CellContext`q] = 
         Subscript[$CellContext`Q, $CellContext`VLDk]/
          Subscript[$CellContext`Q, $CellContext`Vk]; 
        Grid[{{"\!\(\*SubscriptBox[\(F\), \(r\)]\)", 
            "\!\(\*SubscriptBox[\(F\), \(rd\)]\)", 
            "\!\(\*SubscriptBox[\(F\), \(s\)]\)", 
            "\!\(\*SubscriptBox[\(F\), \(sd\)]\)", 
            "\!\(\*SubscriptBox[\(F\), \(q\)]\)", 
            "\!\(\*SubscriptBox[\(F\), \(qd\)]\)"}, {
            Subscript[$CellContext`F, $CellContext`r], 
            Subscript[$CellContext`F, $CellContext`rd], 
            Subscript[$CellContext`F, $CellContext`s], 
            Subscript[$CellContext`F, $CellContext`sd], 
            Subscript[$CellContext`F, $CellContext`q], 
            Subscript[$CellContext`F, $CellContext`qd]}}, Frame -> All]}, 
      "Specifications" :> {{$CellContext`B$$, 0.4, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{605., {66.5, 73.5}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.53129363885993*^9, {3.5312936842092094`*^9, 3.531293696767232*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", "1"}]], "Input",
 CellChangeTimes->{{3.53129365614476*^9, 3.5312936621819706`*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.531293662946372*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{898, 644},
WindowMargins->{{0, Automatic}, {Automatic, 1}},
Magnification->1.25,
FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 104, 1, 103, "Title"],
Cell[CellGroupData[{
Cell[719, 28, 104, 1, 88, "Section"],
Cell[CellGroupData[{
Cell[848, 33, 172, 2, 46, "Subsection"],
Cell[1023, 37, 921, 29, 168, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1981, 71, 158, 2, 46, "Subsection"],
Cell[2142, 75, 731, 23, 146, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2910, 103, 110, 1, 46, "Subsection"],
Cell[3023, 106, 1106, 30, 234, "Input"],
Cell[CellGroupData[{
Cell[4154, 140, 1295, 25, 58, "Input"],
Cell[5454, 168, 1339, 27, 207, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6842, 201, 153, 2, 46, "Subsection"],
Cell[CellGroupData[{
Cell[7020, 207, 121, 1, 34, "Subsubsection"],
Cell[7144, 210, 630, 17, 79, "Text"],
Cell[7777, 229, 118, 1, 34, "Text"],
Cell[7898, 232, 543, 14, 80, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8478, 251, 177, 2, 34, "Subsubsection"],
Cell[8658, 255, 991, 26, 98, "Text"],
Cell[9652, 283, 118, 1, 34, "Text"],
Cell[9773, 286, 589, 19, 124, "Input"],
Cell[10365, 307, 325, 11, 80, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10727, 323, 230, 3, 34, "Subsubsection"],
Cell[10960, 328, 1133, 30, 98, "Text"],
Cell[12096, 360, 118, 1, 34, "Text"],
Cell[12217, 363, 841, 23, 124, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13119, 393, 156, 2, 88, "Section"],
Cell[CellGroupData[{
Cell[13300, 399, 56090, 1412, 4439, "Input"],
Cell[69393, 1813, 37064, 655, 161, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106494, 2473, 116, 2, 35, "Input"],
Cell[106613, 2477, 70, 1, 35, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
